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MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
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NT! 
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NN NN TT 00 00 68 BB LL KK KK Il 00 00 
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LL II SS 
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8 SBEGIN NTOBLKIO,000,NFSNETWORK,<NETWORK BLOCK I/0> 
3 
4 ITIIIIIIIIIIILITTTIIITTITTITITITIITITITILILILI LTT TTT iiiiiriiiiiiiiii 
* 
00 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
00 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ti :* ALL RIGHTS RESERVED. * 
3 2 
8 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
00 7* INCLUSION OF THE ABOVE cop rnin! NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
30 3* TRANSFERRED. * 
7* * 
00 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 3* CORPORATION. * 
3” a 
00 7* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oo - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
MH & 
00 3* 
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++ 
Facility: RMS 


Abstract: 


This module communicates with the File Access Listener (FAL) at the 
remote node to perform read, write, and space block 1/0 operations. 


Environment: VAX/VMS, executive mode 
Author: James A. Krycka, Creation Date: 18-APR-1978 
Modified By: 


V03-004 JAKO145 J A Krycka 12-APR-1984 
Track changes in DAP message building algorithm. 


v03-003 sAxOlee J A Krycka 22-AUG-1983 
n SWRITE failure, verify that FAL has sent a Status message 
of sending a Continue Transfer message to unlock FAL. 


V03-002 JAKO116 J A Krycka 29-JUN-1983 
Cleanup--remove Rath rine & path. 


v03-001 JAKO104 J A Krycka 22-APR-1983 
ow several DATA Poll es to be blocked in one transmit Q10 
for SWRITE in file transfer mode. 
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v04-00 DECLARATIONS 7” 


00 59 ~SBTTL DECLARATIONS 
00 60 
4 61 ; 
0 66 ; Include Files: 
0000 > 3 
0000 64 
0000 65 S$BDBDEF 
0000 66 SDAPPLGDEF 
0000 67 SDAPHDRDEF 
0000 68 SDAPCNFDEF 
0000 69 SDAPCTLDEF 
0000 70 DAPDATDEF 
0000 71 SDAPSTSDEF 
0000 if SIFBDEF 
0000 7 SIRBDEF 
0000 74 SNWADEF 
0000 75 SRABDEF 
0000 76 SRMSDEF 
0000 77 
444 78 ; 
0000 79 ; Macros: 
0000 80 ; 
0000 81 ; None 
0000 Hf ; 
0000 83 ; Equated Symbols: 
0000 84 ; 
0000 85 
0000 86 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 87 ASSUME NWASQ"FLG EO 0 
0000 88 
0000 89 ; 
0000 90 ; Own Storage: 
0000 91 ; 
0000 92 ; None 
0000 93 ; 


NETWORK BLOCK 1/0 is at 9 $3338 
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96 


Define 
Define 
Define 
Define 


; Define 
; Define 
; Define D 
; Define 
; Define 


Define 


; Define 
; Define 
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cro V04-00 


BDB symbols 

DAP prologue symbols 

DAP message header 

DAP Configuration message 
DAP Control message 

DAP Data message 

AP Status message 

IFAB symbols 

IRAB symbols 

Network Work Area symbols 
Record Access Block symbols 
RMS completion codes 
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++ 
NTSREAD = engages in a DAP dialogue with the remote FAL to read the 
specified blocks. 


Calling Sequence: 

BSBW NTSREAD 
Input Parameters: 
RG BOB address 
Re VBN of ist block for transfer | 
Rg I 
R10 IFAB address 
R11 Impure Area address 
Implicit Inputs: 


COOQOCoooooooooooooooooo 


ew ee ee elo loo e lol olololololololololeololo) 
pee ee weal wl awl ol olelel ol elelelelelelelelelelolo) 


S 


ee ee ee ee SS | 


$V EOF 
NWASV_FTM_INIT 
NWASV_FTM_STORE 
Output Parameters: 


| 
RO Status code (RMS) 
R1i-R3 = Destroyed 
AP Destroyed 


Implicit Outputs: | 


BOB buffer contents | 
BOBSW_NUMB | 
BDBSB_REL_VBN destroyed 
DAPSL_CRC_RSLT 

NWASV_F TM_EOF 
NWASV_FTM_INIT cleared 
NWASV_FTM_RETRV 
RABSW_RFA 


Completion Codes: 
Standard RMS completion codes 


Side Effects: 
None 
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vo4=000 NTSREAD = PERFORM NETWORK READ BLOCK FUN Pant oe 1 93:39:98 LRMS SRCINTOBLKIO.MAR: 1 . a) 
000 152; | 
: 138 i 
00 155 NTSREAD:: ; Entry point 
000 156 $TSTPT NTREAD Teg Sis | 
OFO ef BB 44 1 PUSHR #*M<R4,R5,R6,R7> 3; Save registers | 
6 4 D0 QOOA 158 MOVL ; Copy address of BD 
57° 3C AA DO 000d 159 MOVL  IFBSL_NWA_PTR(R10),R7 : Get address of NWA (and DAP) | 
14 A6 = B4 0011 160 CLRW BDBSWINUMB(R6) ; Zero # bytes in B uffer coun 
Baie 161 ; Note: BDBSW_NUMB = BDB$W_SIZE on input 
48 A6 3094 «(0014 166 CLRB BDBSB_REL_VBN(R6) ; Zero relative VBN to start of buffer 
07 67 #18 £0 QO17 16 BBS #NWAST_FTA_STORE (R7),10$; $READ after SWRITE illegal in FIM 
67 1D £1 001B 164 BBC #NWASV-FTIM-EOF,(R7),- ; Check for EOF received while in FIM 
06 QO1E 165 READ LOOP ; _from a previous $READ 
00cB 3] OO1F 166 BRW ERREOF : Branch aid 
00C1 1 00 é 167 10$: BRW ERRFTM ; Branch aid 
00 168 
0025 169 ;+ 
OnSe 159 ; Start of loop to read next block and append it to the user buffer. 
0025 "6 ; Note: The data access protocol allows only one block to be transferred per | 
0025 173; block 1/0 request. Therefore, a multi-block user request is performed 
0025 174; via several one-block DAP requests. 
0025 175 ;:- 
Onse 176 
002 177 READ_LOOP: ; Pas 
05 6A 2D €0 0025 178 BBS #I1FB$V_SQ0, (R10) ,10$ ; Branch if sequential-only specified 
51 04 9A 0029 179 MOVZBL M#DAPSK~BLK_VBN,Ri ; Set RAC for DAP message 
0B 11 Q02C 180 BRB REA D CTL ; Join common code ; 
67 19 €5 ik 181 10$: BBCC #NWASV_FTM_INIT,(R7),- ; Branch if no Control mesenge required 
32 0031 182 READ_BCOCK ; _and turn off single-shot flag 
0032 183 SSETBIT #NWASV_FTM_RETRV,(R7) ; Set file transfer mode retrieval flag 
51 05 9A $338 HT: MOVZBL #DAPSK_BLK_FILE,R1 ; Set RAC for DAP message 
0039 186 ;+ 
0039 187 ; Build and send DAP Control message to partner. 
0039 188 ;- | 
0039 189 
OO 190 READ_SEND_CTL: 3 
0039 =191 SSETBIT #NWASV_LAST_MSG, (R7) ; Declare this Last message to block 
50 04 00 003d 138 MOVL #DAPSK-CTL_ASG,RO ; Get message type value | 
FFBD' 30 pee 19 BSBW = NTSBUICD HEAD ; Construct message header | 
85 01 90 00435 194 MOVB #DAP$K_GET_READ,(R5)+  ; Store CTLFUNC field | 
85 03 90 O046 195 MOVB #<<DAPSM_RAC>!- ; Store CTLMENU field 
0049 196 <DAPSMKEY>/- : 
Bree 19 >, (R5)+ ; | 
85 51 90 0049 198 Ove R1,(R5)+ 3 Store RAC field 
50 48 A6 9A O04¢ 199 MOVZBL BDB$B_REL_VBN(R6),RO  ; Get relative VBN to start of buffer | 
51 1€ A6 50 1 005 00 DOL RO,BOBSL_JBN(R6) ,R1 ; Compute next VBN to request 
FEAR’ 0 0035 o1 SB NTSCVT_BR4_IMG : Store KEY as an image field | 
FFAS’ 30 58 ; BSBW NTSBUICD TAIL > Finish building message 
FFA2° 30 0058 0 BSBW NTSTRANSAIT ; Send Control message to FAL 
03 50 8 O05E 04 BLBS RO,READ_BLOCK ; Branch on success 
008E 31 0061 05 BRW EX{T ; Branch aid 
064 $ 
0064 07 ;+ ; Tag 
0064 08 ; Receive DAP Data message from partner containing the requested block. 
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064 09 ;- 
bee 10 
64 11 READ_BLOCK: : 
064 1 $SETBIT #DAPSK_DAT_MSG,DAPSL_MSG.MASK(R7) 
069 1 ; Expect response of Data message 
30 69 14 BSBW NTSRECEIVE 3; Read block 
E9 6C 15 BLBC RO, CHKEOF ; Branch on failure 
E1 QO6F BBC #DAPS$V_DAPCRC,- ; Branch if partner does not support 
0071 21 DAP$SQ_SYSCAP(R7),10$ ; file Level CRC checksum | 
7D 0074 218 MOV  DAPSQ-FILEDATA(R?),R2 ; Put descriptor of block in <R2,R3> | 
0B 0078 19 W*nTSCRC LE,- ; Compute CRC (destroying RO-R3) 
pore 0 DAPS$L_CRC_RSLT(R7),- 3; using result of previous CRC 
O7E 1 R2,(R3) 3 calculation as initial CRC value 
DO 494 ¢ MOVL RO,DAP$L_CRC_RSLT(R7) ; Store CRC resultant value 
7D 0084 10$: MOVQ DAP$Q_FICEDATA(R7) ,R2 ; Put descriptor of block in <R2,R3> 
3¢ 60088 4 MOVZWL BDBSW_NUMB(R6) ,RO ; Get # bytes already in BDB buffer 
Ail Q08C 5 ADDW3 oR2,R1 ; cenpute projected total 
Bi 0090 6 CMPW R1,BOBSW_SIZE(R6) ; Will this overflow BDB buffer? | 
1B 0094 7 BLEQ ; Branch if not 
A3 0096 228 SUBW RO,BDBS$W_SIZE(R6) ,R2 ; Compute # free bytes in BDB buffer | 
AO 0098 $$3 20$: ADDW R2,BDBSW_NUMB(R6) ; Update byte count in BDB | 
28 O09F 0 MOVC ,(R3),= ; Append new block to BDB buffer 
Boag 31 @BDBSL_ADDR(R6) CROJ : 
00A 3 
00A5S 33 3+ 
00A5 34 ; Receive DAP Status message from partner if we are not in file transfer mode 
BaAe $32 3; and return record file address of the first block accessed. 
00A5 337 | 
O0A5 238 READ_RECV_STS: : | 
QOAS 239 RASSUC ; Anticipate success | 
EO QOA8 sto #IFB$V_SQ0,(R10),CHK1 ; Branch if in file transfer mode | 
E1 QOAC 41 BBC #DAP$V~GEQ_V56, (R7) ,CHK1; Branch if partner uses DAP before V5.6 
0080 4g ; teeee SSETBIT #DAPSK-STS_MSG.DAPSL_MSG_MASK(R7); Implied for receive 
30 0080 4 BSBW NTSRECEIVE 3; Obtain status of read request 
E9 0083 44 BLBC RO,EXIT ; Branch on failure 
95 0086 45 TSTB BDB$B_REL_VBN(R6) ; Return RFA value to user RAB on 
12 00B9 46 BNEQ CHK1 : first pass thru loop as RFA refers 
30 0088 47 BSBW NTSRET_RFA ; to the first block read 
OBE 248 ' 
OOBE 49 ; ; 
tee 29 3 Determine whether or not user block 1/0 request has been completed. | 
: 
OBE 
B1 OQOBE 26 CHK1:  CMPW BOBSW_NUMB(R6) ,- :; Check # bytes received against 
Opes 54 BDBSW_SIZE(R6) ; _# bytes requested 
1€ 00C3 55 BGEQU EX ; Branch if user request satisfied 
96 00C5 56 INCB BOBS$B_REL_VBN(R6) ; Update relative VBN for next time thru 
31 pecs HA BRW READ_COOP : Branch to read next block 
b0cB 59 ; 
QOCB 260 ; Check for end-of-file. 
Doce S62 | ! | 
81 C 86 CHKEOF: CMPW RO, #<RMSS_EOF &*XFFFF> ; Is it an end-of-file? 
12 00D 64 BNEQ = EXIT : Branch if not. 
E1 D 65 BBC #1FB$V_SQ0,(R10),10$ ; Branch if not file transfer mode 
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D6 66 SSETBIT #NWASV_FTM_EOF ,(R7) ; Denote that end-of-file has been 
7% DA 6 BRB EXIT 3; reached so that EOF status will be 
pc 68 3 returned on next read attenee 
dC 34 : also it's an input to NTSCLOSE 
14 A6 83 ODC 0 10$: TSTW BDBSW_NUMB(R6) 3; If no data was received from FAL 
ita ODF 71 BEQL EXIT ; then return an EOF condition, 
0E1 i RMSSUC 3; else return success with the data 
OC 11 Q0E4 7 BRB EXIT ; (which will cause BDBSL_VBN to be 
O0E6 74 ; updated on next entry to NTSREAD) 
O0E6 75 
Q0E6 a6 i+ 
00E6 77 ; Error processing and exit paths for read operation. 
00E6 78 ;- 
00E6 79 
Q0E6 80 ERRFTM: RMSERR FTM ; Declare file transfer mode error 
05 11 OOEB $B RB 3 
OOED Hf ERREOF: RMSERR EOF ; Declare end-of-file 
OOFO 8F BA QOOF2 2835 EXIT:  POPR #AM<RG,RS,RO,R7> ; Restore registers 
05 OOF6 284 : Exit with RMS code in RO 


I 10 
ot Let B49 5:30:03 AX/VMS Macro V04-00 
M NETWORK WRITE BLOCK F 5-SEP=1984 16:20:16 CRMS.SRCINTOBLKIO.MAR;1 
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NTOBLKIO NETWORK BLO 
04000 


C 
NTSWRITE = PER 


+ NTSURITE = engages in a DAP dialogue with the remote FAL to write the 
specified blocks. 


Calling Sequence: 
BSBW NTSWRITE 
Input Parameters: 


R BDB addre 
RS VBN of ist Splock for transfer 
RB RAB address 


R9 IRAB address 
R10 IFAB address 
R11 Impure Area address 


Implicit Inputs: 
BOB buffer contents 
DOR 


BoB BN 
DAPSL_CRC_RSLT 
DAPS$V_DAPTRC 
DAPSV at v56 


NWASV_FTM_INIT 
NWASV_FTM_RETRV 
NWASQ” “BLD” 
Output Parameters: 
R41 Status code (RMS) 
Ri-R3 Destroyed 
AR Destroyed 
Implicit Outputs: 
BOBSW_NUMB 
BDBS$3_ Be By yeostroyed 
DAP$L_CRC 
NWASV_FTM_ nat cleared 
NWASV_F TM_STORE 
RABSW_RFA™ 
Completion hoten 
Standard RMS completion codes 
Side Effects: 


None 
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DA 
14 A6 
48 A6 


05 6A 2D 
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09 6A 2p 
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—D 
mm 
PP i 
'S 
vo 
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TSWRITE:: 
Sister 


WRITE_LOOP: 
MOVZBL 
BRB 

10$: BBC 


MOVZBL 


950 OO O09. 09 09.09 09 69 69 09 G9 09 SI NIN NNN SSN IDS OOD ODO OOO II ££ SE EE 
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95 ; 
$ 
2 WRITE_BLOCK: 
BBC 
3 CMPW 


/0 
ORM NETWORK WRITE BLOCK F 


settee eae CTL: 


J 10 


aretye 
Ay 4,R5,R6,R7> 


Russ NWA_PTR(R10),R7 
aN uASy FTRM_RETRV, (R7), 


ERR 
BDBSW _NUMB(R6) 
BDBS$B_REL_VBN(R6) 


:* 
; Start of loop to write next block and 
: Note: bls data access protocol allows 


#1FBSV_SQ0, (R10) ,10$ 
#DAPSK BLK K_VBN.RI 


#NWAST FIR” INIT, (R7),~ 
WRITE BL 
SSETBIT #NWASU_FTM_STORE, (R7) 


#DAPSK_BLK_FILE,R1 


2¢ 
3; Build and send DAP Control message to 


#DAPSK CTL MSG,RO 
wT Sey ICD 


TRAN 
RO WRITE, BLOCK 


#1FBSV_SQ0,(R10),5$ 


NWASW_BAPBUF SIZ ( ta) .- 


"SSEp-198e 16: 


HEAD 
#DAPSK ps 2 (R5)+ 


5 


. 
° 
: 
; 
Py 
. 
; 
; 
; 
Py 
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; Entry point 
; Save registers 


Copy ad ress of B08 
Get address of NWA (a 


nd DAP 
; SWRITE after. SREAD illegal in FIM 


Zero # bytes in BDB buffer count 
Note: BDBSW_N 


append it to the user buffer. 


only one block to be transferred per 


lock 1/0 request. Therefore, a multi-block user request is performed 
via several one-block DAP requests. 


; Branch if sequential-only specified 


Set RAC for DAP message 
; Join common code 


; Branch if no Control message required 


and turn off single-shot flag 


; Set file transfer mode storage flag 


Set RAC for DAP message 


partser. 


‘ 
‘ 
Ps 
6 
e 
° 
e 
3 
P 
. 
Py 
: 
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. 
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Get message type value 
Construct message header 


; Store CTLFUNC fie 
; Store CTLMENU field 


; Store RAC field 
Get relative VBN to start of buffer 
; Compute next VBN to request 


Store KEY as an image field 


; Finish building messa 


Send Control message to FAL 
Branch on success 
Branch on failure 


3+ 
; Build and send DAP Data message to partner containing the next block. 


; Branch if not in file transfer mode 


Allow blocking of DATA messages in 


Page 


NUMB = BDBSW_SIZE on input 
Zero relative YBN to start of buffer 


ery 


0410 4 


51 


52 16 Ae 


55 
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PPL LLL LES 
DATIVE 
AuiseWnr—Owoo0 


0 I-SEB-1984 23 5 
RM NETWORK WRITE BLOCK F 5-SEP=1984 16:2 
#<1024+16> : 
BGEQU ; 
5$: SETBIT #NWASV_LAST_MSG, (R7) : 
10$:  MOVL  #DAPSK“DAT_ASG,RO ; 
BSBW NTSBUICD_HEAD 3 
MOVL WASQ_BLB+4(R7) ,R4 : 
MOVZBL BDBSB-REL_VBN(R6),RO : 
ADDL3 RO,BDBSL_QBN(R6),R1 : 
BSBW NISCYT_BR4_ ING F 
MOVL 5,R : 
MOVZWL BDBS$W_NUMB(R6),RO : 
SUBW3 oR -BDBSU_SIZE (RG) .R2 ; 
CMPW OR : 
BLEQU 20$ ; 
MOVW #512,R2 3 
208 stat R2,BOB$W_NUMB(R6) : 
ADDL RZ.RI RS : 
CPW R5,NWASW_DAPBUFSIZ(R7) : 
MOVO R2,NWASQ_SAVE_DESC(R7) : 
PUSHR #*M<R2,R5> 
MOVC3 R2 aps, ADDR(R6) CROJ, (R 
POPR #*M<R2,R55 ; 
MOVL  R3,R5 ; 
BSBW NTS$BUILD_TAIL ; 
BBC DAP$V_DAPCRC,- ; 
DAP$Q_SYSCAP(R7),30$ —: 
MOVQ NWASQ"SAVE DESC(R7),R2 : 
CRC W*NTSCRC_TABLE,- ; 
DAPSL CRC_RSLTIR7) »~ : 
MOVL  RO,DAPS$L_CRC_RSLT(R7) ; 
30$:  BSBW  NTS$TRANSAIT ; 
BLBC RO, CHKSTS : 


K 10 


2 
3; Receive DAP Status orssege from partner 


3; and return record file a 


WRITE_RECV_STS: 
BBS 


BBC 
; teeee SSETBIT #DAPSK"S 
BSBW NTSREC 


BLBC 
TSTB 
BNEQ 
BSBW 


CHK2: CMPW 


$00 ; 
#DAPSV~GEQ. 
TS~ 

EIVE : 

RO,CHKSTS 3 

BDB$B_REL_VBN(R6) : 

NTSRET_RFA : 


3; Determine whether or not user block 1/0 


BDBSW_NUMB(R6) ,- : 
BDBSWSIZE(R6) 


RMS.SRCINTOBLKIO.MAR; 1 


8:93 AX/VMS Macro Vv04-00 
tr 


ansmit Q10 if at least two will 


fit in the DAP buff 


er 
Declare this last message to block 


Get message type value 
Construct message header 


Get address of Build message buffer 
Get relative VBN to start of buffer 


Compute next VBN to request 
Store RECNUM as an image field 
Save next byte pointer 


Get # bytes already sent from BDB buf 


Compute # bytes renere es to send 
Is it more than one block? 

Branch if not 

Send exactly one block 


Update opts count in BDB for next time 
DAP overhead bytes in msg 

; Compute projected size of DAP message 

Make sure message will fit in buffer 

; Branch if record is too big 

; Save descriptor of user block 


Compute 


Save registers 


Vt Move block into DAP message 


estore registers 
Save next byte pointer 
Finish building message 


Branch if pectaer does not support 


file Level CRC checksum 


Put descriptor of block in <R2,R3> 


Compute CRC (destroying RO-R3) 
using result of previous CRC 


calculation as initial CRC value 


Store CRC resultant value 
Write block 
Branch on failure 


if we are not in file transfer mode 
dress of the first block accessed. 


Branch if in file transfer mode 
Branch 

ASK(R7); Implied for receive 
Obtain status of write request 
Branch on failure 

Return RFA value to user RAB on 


first pass thru loop as RFA refers 


to the first block written 


request has been completed. 


Check # bytes transmitted against 


# bytes requeste 


if partner uses DAP before V5.6 


8 OOOO | 
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NTOBLKi0 NETWORK BLOCK 1/0 os i tb 4 $3:30:03 Age Macro v04-00 Page 10 N] 
v04- NTSWRITE = PERFORM NETWORK WRITE BLOCK F 5=SEP-1984 16:20:16 CRMS.SRCINTOBLKIO.MAR;1 (4) ve 
1A =6©1E «(O1EC) | 6457 BGEQU§ EXITI ; Branch if user request satisfied 
48 A6 39 iff 4 8 INCB BDBSB_REL_VBN(R6) ; Update relative VEN for next time thru 
FFYE +4 rH BRwW WRITE-LOOP ; Branch to write next block 
1F4 «461 5+ 
\te 186 ; Error processing and exit paths for write operation. 
1F4 464 
30 A? «691 O1F4 465 CHKSTS: CMPB DAP$B_TYPE(R7) ,=- ; Branch if failure was not the result 
09 O1F7 496 #DAPSR_STS_MSG ; of Status message returned by FAL 
OE 12 OB 46 BNEQ EXIT1 3 
4 ee gira 468 PUSHR #*M<RO> ; Save pevnery error code 
FEO" 1FC 06469 BSBW NTSRESUME _F AL ; Tell FAL what to do on write error via 
O1FF 470 ; _interrupt Continue Transfer message 
01 BA OF 471 POPR #*M<RO> 3; Restore primary error code 
05 11 0201 of¢ EXIT1 : 
0203 473 ERRRSZ: RMSERR RSZ : Invalid record size 
OOFO 8F BA 0208 474 EXITI: #*M<R4,RS,R6,R7> ; Restore registers 
05 020C 475 ; Exit with RMS code in RO 
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NETWORK BLOCK. 1/0 1§oSEP~1984 25:50:05 VAX/VMS Macro V04-00 : 
NTSSPACE = PERFORM NETWORK SPACE BLOCK F 5-SEP-1984 16:20:16 CRMS.SRCINTOBLKIO.MAR: 1 ao 


-SBTTL NTSSPACE - PERFORM NETWORK SPACE BLOCK FUNCTION 
;NTSSPACE = engages in a DAP dialogue with the remote FAL to space the 
file forward or Bechuord the specified number of blocks 
Calling Sequence: 
BSBW NTSSPACE 
; Input Parameters: 
R1 # blocks to space as a signed number 
R8 RAB address 


ess 
R11 Impure Area address 


: Implicit Inputs: 
: None 
: Output Parameters: 
: RO Status code (RMS) 
3 R1i-R5 Destroyed 
; R6 Actual # blocks spaced as an unsigned number 
3 R7 Destroyed 
: AP Destroyed 
: Implicit Outputs: 
: None 
: Completion Codes: 
Standard RMS completion codes 
Side Effects: 


None 
NTSSPACE:: ppt point 
STSTPT NTSPACE 
04 CLRL ro # blocks spaced 
£0 BBS #1FBSV_SQ0,(R10), cane 2 ier eork space function not allowed 
e transfer mode selected 
dO MOVL IFBSL_NWA_PTR(R10),R7 ; Get address of NWA (and DAP) 


se 
; Build and send DAP Control message to partner. 


SPACE _SEND 


PPI IPIPINIMNIPPIPNININININININININYNINYN[NINYINININININIPYNINYPININININIPYNINIPIPIPIPIPIPIPIPIPUPIPIPIPIPINIPINYD 
i at ot I BOHOO OOOO OGOOCOOCOCOCGCOSGSCOSCOCOOCOOOOCOOOOOOCOSoCO 

AANALPIDIPINIPINIMPYNINIDYD 9 9 9 OF PFOOOOOOOCOCOOCOOOOOOO OOO OWMMcococDcMmaoc~ ~~ 
WROD OONOA NE WIN 9 OD NAME WIN O OO NAU EWA 9 OODNAU EWN $ O ODNOUEU" O0OON 


VUVTVCVCVCC OWOUIWMNO CVC VCVTVVV VCC CUCTVTTTTVVVCCCCC0C00C000"0"0"00°0€ 
PUPVIVWIV DPV DIVIVIUDVSVIVSIULVSIUSIVSVIVSVSVSIVSVIVSIVSUSUSVSVSVOSISISISIOSION EB BB BS ES PPP PPP PPLE EE 


COOCCOCOCOOCOCOOOSCOCO OOOO OOCOOOOCOOCOSOOOOCOOCOCOOOOOCOOOOOCOOO.: 


Seefait WNWASV_LAST_MSG,(R7) ; Declare this Last message to block 


a 


SS eee 
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NTOBLKIO NETWORK BLOCK 1/0 15-SEP-1984 3 VAX/VMS Macro V04-00 Page 
youeb00 NTSSPACE = PERFORM NETWORK SPACE BLOCK F ae 4 3:38: % CRMs. SRC INTOBLKIO.MAR; 1 . 
50 04 1 4 MOVL #DAPSK_CTL_MSG,RO ; Get message type value 
Fog?" 39 4 5 BSBW NTSBUICD_HEAD 3 Construct message header 
1 #O 7 § TSTL R1 3; Space ryceuere request? 
05 19 9 BLSS 10$ 3; Branch if n 
85 bg + B 3 neve at hte deaaiaaiadhs : Set METLEUNC field for forward space 
85 $ 90 6 40 10$: MOVB #DAPSK_SPACE_BW,(R5)+  ; Set CTLFUNC 4s bs backward space 
oa.) on © oe 41 MNEGL R1,R1 ~ ; Make value por) 
85 02 90 6 4g 20$:  MOVB #DAPSM_KEY,(R5)+ ; Store CTLMENU Hela 
FDC4* g 4 BSBW NTSCVTS BN4_IMG ; Store KEY as an image field 
FOCI" 30 C 544 BSBW NTSBUICD TAIL 3 Finish building message 
at 0 8 F af? BSBW NTSTRANSA 3 Send Control ,nessage o FAL 
0D E9 if 4s BLBC RO,EXIT ; Branch on failure 
024 54 
0245 278 3+ 
0245 49 ; Receive DAP Status message from partner to obtain actual number of blocks 
0245 550 ; spaced. 
0245 551 ;:- 
0245 225 
0245 53 SPACE_RECV 
bSee 554 5 weete SSETBIi #DAPSK_STS_MSG,DAPS$L _MSG. * MASK(R7); Implied for receive 
0245 555 7 Expect response of Status message 
FDB8' 30 0245 556 BSBW NTSRECEIVE ; Receive status of ppece request 
56 48 A7 DO 0248 557 MOVL DAPS$L CRECHUM2(R7), R6 Get # blocks actual by spaced 
ose 558 ; as an unsigned number 
05 024C 559 RSB : Exit with RMS code in RO 
024D 560 
bsed 561 i+ 
0240 5 ; Error processing and exit paths for space operation. 
024D 563 ;:- 
024D 564 , 
024D 565 ERRFTM2:RMSERR FIM ; Declare file transfer mode error 
05 0636 566 EXIT2: RSB 3; Exit with RMS code in RO 
025 567 
0253 568 ~ END : End of module 
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NTOBLKIO NETWORK BLOCK 1/0 15-SEP-1984 $3:30: 04-00 Page 
Symbol table 5-SEP-1984 16:20: . LKIO.MAR;1 


03 edges Macro V 
16 CRMS.SRCINTOBLK 
$$.PSECT_EP = 000 0 DAPSM_BITCNT = 00000008 
SSRMSTEST es 8 A DAPSM_BLKCNT = 00000040 
SSRMS_PBUGCHK = 00 9 DAPSM_KEY = MOORE 
SSRMS_ TBUGCHK = 000 DAPSM_RAC = 00000001 
SSRMS_UMODE = 000 4 DAPSM_SEGMENT = 00000040 
BOB$B_REL_VBN = 000 : DAPS$M_TMP1$ = 00000008 
BDB$L_ADDR = 000 DAP$M_TMP2$ = FFF80000 
BDBSL_VBN = 000 C DAP$Q_DCODE_FLG 00000000 
BDBSW_NUMB = 000 & DAPSQ_FILEDATA 00000044 
BDBSW_SIZE = 000 6 DAP$Q_KEY 00000048 
CHK1 ER 01 DAP$Q"MSG_BUF 1 00000008 
CHK2 7 R 01 DAP$Q_MSG_BUF2 BR 88818 
CHKEOF BR 01 DAP$Q"STX 00000050 
HKSTS 4R 01 DAP$Q_SYSCAP 00000028 
DAPS$B_BITCNT 5 DAP$Q_SYSPEC 00000038 
DAP$B_BLKCNT 6 DAPSV_DAPCRC = 00000015 
DAPS$B_CTLFUNC 0 DAP$V_GEQ_V56 = 00000024 
DAP$B_DCODE_F ID 9 DAP$W_BUFSIZ 00000040 
DAP$B_DCODE_MAC B DAPS$W_CTLMENU 00000044 
DAP$B_DCODE MSG A AP$W_DISPLAY2 00000054 
DAP$B_DECVE 7 DAP$W_PARTNER 00000006 
DAP$B_ECONUM 5 DAPSW_RFA 00000042 
DAP$B_FILESYS 3 DAP$W_STSCODE 00000040 
DAP$B_FLA 1 DAP$W- VERSION 00000004 
DAP$B_KRF 7 RREOF QOOOO0ED R 01 
DAP$B_LEN256 4 ERRF IM QOOOO0E6 R 01 
DAP$B_LENGTH 3 ERRFTM2 00000240 R 01 
DAP$B_OSTYPE 2 ERRRSZ 00000203 R 01 
DAP$B_RAC 6 EXIT QOOO00F2 R 01 
DAP$B_STREAMID 2 EXIT1 00000208 R 01 
DAP$B_TYPE 0 EXIT2 00000252 R 01 
DAP$B_USRNUM 6 IFBSL_NWA_PTR = 0000003C 
DAP$B_USRVER 8 IFB$V_SQ0 = 0000002D 
DAP$B_VERNUM 4 NTSBUTLD_HEAD aeeeeeee =X 01 
DAP$B_X_ FIELD 4 NTS$BUILD TAIL aeeeeaee X 01 
DAPSC_BC 0 NTSCRC_TABLE aeeeeeee =X 01 
DAP$K_BLK_FILE s 5 NTSCVT_BN4_IMG aeeeeeee = X 01 
DAP$K_BLK_VBN z 4 NTSREAD 00000000 RG 01 
DAPS$K_BL co NTS$RECEIVE weaeenee X 01 
DAP$K~CTL_MSG = 04 NTSRESUME_F AL aeeeeeee = X 01 
DAP$K_DAT_ = 08 NTSRET_RFA teeeeere YX 01 
DAPS$K_GET_READ = 01 NTSSPATE 00000200 RG 01 
DAPSK_PUT_WRITE = 04 NTSTRANSMIT aeeeeeee =X 01 
DAP$K_ SEQ” AC = 00 NTSWRITE QOO000F7 RG 01 
DAP$K_SPATE_ = 12 NWAS$B_ALLXABCNT 0000011C 
DAPSK_SPACE-FW = 11 NWASB_DAP_RAC 000000C9 
DAPSK_STS_MSG = 09 NWASB_FILESYS 000000C5 
P$L-C 30 NWASB_KEYXABCNT 0000011D 
DAPSL_CRC_RSLT 20 NWASB_NETSTRSIZ 0000016F 
DAP$L_DCOBE_STS 18 NWASB_NODBUF S1Z 00000168 
DAPSL_MSG_MASK 1¢ NWASB_ 000000C6 
DAPSL_RECRUM1 40 NWASB_OSTYPE 000000C4 
DAP$L_RECNUM2 $e NWASB_ 000000C7 
DAP$L_ROP 5 NWASB_RMS_RAC tS 
DAPSL_SSPWA 80 NWASC"BLN 00 300 
DAPS$L_STV 4C NWASK—BLN 00000800 
DAPSL_TEMP 90 NWAS$L~ALLXABADR 00000100 
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: eS 3:50:03 VAX/VMS Macro v04-00 
Psect synopsis KIO.MA 


4 16:20:16 CRMS.SRCINTOBLKIO.MAR; 1 


PSECT name Allocation PSECT No. Attributes 

. Wes Ht ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

NF SNE TWORK 0000025 &@, 2: 2 a PIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 

ABSS$ 00000800 ( 2048. 02 ¢( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

Peucocesesswenseceonnnewad 
! Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization | 32 00:00:00.09 00:00:00.75 

Command processing 114 00:00:00.67 00:00:03.64 

Pass 342 00:00:12.96 00:00:29.71 

Symbol table sort 0 00:00:01.49 00:00:02.93 

Pass 2 111 00:00:02.51 00:00:06.19 

Symbol table output 23 00:00:00.17 00:00:00.81 

Psect synopsis output 2 00:00:00.03 00:00:00.03 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 626 00:00:18.12 00:00:44.07 


The_working set Limit was 1350 pages. , 

68178 bytes_(134 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1202 non-local and 19 local symbols. 
568 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

27 pages of virtual memory were used to define 26 macros. 


$eeeoowwn new ewe e owen ceneoe + 
: Macro Library statistics H 
Macro Library name Macros defined 
-$255$DUA28: CRMS.OBJJRMS.MLB; 1 18 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 


TOTALS (all Libraries) 22 

1418 GETS were required to define 22 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOBLKIO/0OBJ=OBJ$:NTOBLKIO MSRC$:NTOBLKIO/UPDATE=(ENH$:NTOBLKIO)+LIBS$:RMS/! IB 
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